home *** CD-ROM | disk | FTP | other *** search
Wrap
<?xml version="1.0" encoding="utf-8"?> <html><head><title>On...GoSub Statement; On...GoTo Statement [Runtime]</title><meta name="filename" content="text/sbasic/common/03090303"/><help:css-file-link xmlns:help="http://openoffice.org/2000/help"/><!--The CSS style header method for setting styles--><style type="text/css"> table.Tabelle1{ } span.Tabelle1A{ width:1.499cm;} span.Tabelle1B{ width:16.498cm;} tr.Tabelle11{ } td.Tabelle1A1{ } p.P1{ } span.T1{ font-weight:bold;} span.fr1{ } </style></head><body> <help:paragraphinfo state="E" xmlns:help="http://openoffice.org/2000/help"/><help:to-be-embedded Eid="ongosub" xmlns:help="http://openoffice.org/2000/help"> <p class="Head1"><help:paragraphinfo state="U" number="1"/><help:key-word value="On...GoSub; statement" tag="kw66563_1"/><help:key-word value="On...GoTo; statement" tag="kw66563_2"/><help:link Id="66563">On...GoSub Statement; On...GoTo Statement [Runtime]</help:link></p> <p class="Paragraph"><help:paragraphinfo state="U" number="2"/>Branches to one of several specified lines in the program code, depending on the value of a numeric expression.</p> <help:paragraphinfo state="E"/></help:to-be-embedded> <p class="Head2"><help:paragraphinfo state="U" number="3" xmlns:help="http://openoffice.org/2000/help"/>Syntax:</p> <p class="Paragraph"><help:paragraphinfo state="U" number="4" xmlns:help="http://openoffice.org/2000/help"/>On N GoSub Label1[, Label2[, Label3[,...]]]</p> <p class="Paragraph"><help:paragraphinfo state="U" number="5" xmlns:help="http://openoffice.org/2000/help"/>On NumExpression GoTo Label1[, Label2[, Label3[,...]]]</p> <p class="Head2"><help:paragraphinfo state="U" number="6" xmlns:help="http://openoffice.org/2000/help"/>Parameters:</p> <p class="Paragraph"><help:paragraphinfo state="U" number="7" xmlns:help="http://openoffice.org/2000/help"/><span class="T1">NumExpression:</span> Any numeric expression between 0 and 255 that determines which of the lines the program branches to. If NumExpression is 0, the statement is not executed. If NumExpression is greater than 0, the program jumps to the label that has a position number that corresponds to the expression (1 = First label; 2 = Second label)</p> <p class="Paragraph"><help:paragraphinfo state="U" number="8" xmlns:help="http://openoffice.org/2000/help"/><span class="T1">Label:</span> Target line according to<span class="T1"> GoTo </span>or <span class="T1">GoSub</span> structure.</p> <table><tr class="Tabelle11"><th class="Tabelle1A1" style="text-align:left;"><span class="Tabelle1A"> <p class="TextInTable"><draw:image draw:name="Icon0" svg:desc="This icon marks text containing additional information." svg:pixelx="32" svg:pixely="32" svg:width="0.847cm" svg:height="0.847cm" xlink:href="65980" draw:filter-name="" xmlns:draw="http://openoffice.org/2000/drawing" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink"/></p> </span></th><th class="Tabelle1A1" style="text-align:left;"><span class="Tabelle1B"> <p class="TextInTable"><help:paragraphinfo state="U" number="9" xmlns:help="http://openoffice.org/2000/help"/>The <span class="T1">GoTo</span> or <span class="T1">GoSub </span>conventions are valid.</p> </span></th></tr></table> <p class="Head2"><help:paragraphinfo state="U" number="10" xmlns:help="http://openoffice.org/2000/help"/>Example:</p> <p class="PropText"><help:paragraphinfo state="U" number="11" xmlns:help="http://openoffice.org/2000/help"/></p> <p class="PropText"><help:paragraphinfo state="U" number="12" xmlns:help="http://openoffice.org/2000/help"/>Sub ExampleOnGosub</p> <p class="PropText"><help:paragraphinfo state="U" number="13" xmlns:help="http://openoffice.org/2000/help"/>Dim iVar As Integer</p> <p class="PropText"><help:paragraphinfo state="U" number="14" xmlns:help="http://openoffice.org/2000/help"/>Dim sVar As String</p> <p class="PropText"><help:paragraphinfo state="U" number="15" xmlns:help="http://openoffice.org/2000/help"/>iVar = 2</p> <p class="PropText"><help:paragraphinfo state="U" number="16" xmlns:help="http://openoffice.org/2000/help"/>sVar =""</p> <p class="PropText"><help:paragraphinfo state="U" number="17" xmlns:help="http://openoffice.org/2000/help"/>On iVar GoSub Sub1, Sub2</p> <p class="PropText"><help:paragraphinfo state="U" number="18" xmlns:help="http://openoffice.org/2000/help"/>On iVar GoTo Line1, Line2</p> <p class="PropText"><help:paragraphinfo state="U" number="19" xmlns:help="http://openoffice.org/2000/help"/>Exit Sub</p> <p class="PropText"><help:paragraphinfo state="U" number="20" xmlns:help="http://openoffice.org/2000/help"/>Sub1:</p> <p class="PropText"><help:paragraphinfo state="U" number="21" xmlns:help="http://openoffice.org/2000/help"/>sVar =sVar & <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>" From Sub 1 to" : Return</p> <p class="PropText"><help:paragraphinfo state="U" number="22" xmlns:help="http://openoffice.org/2000/help"/>Sub2:</p> <p class="PropText"><help:paragraphinfo state="U" number="23" xmlns:help="http://openoffice.org/2000/help"/>sVar =sVar & <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>" From Sub 2 to" : Return</p> <p class="PropText"><help:paragraphinfo state="U" number="24" xmlns:help="http://openoffice.org/2000/help"/>Line1:</p> <p class="PropText"><help:paragraphinfo state="U" number="25" xmlns:help="http://openoffice.org/2000/help"/>sVar =sVar & <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>" Label 1" : GoTo Ende</p> <p class="PropText"><help:paragraphinfo state="U" number="26" xmlns:help="http://openoffice.org/2000/help"/>Line2:</p> <p class="PropText"><help:paragraphinfo state="U" number="27" xmlns:help="http://openoffice.org/2000/help"/>sVar =sVar & <text:s text:c="" xmlns:text="http://openoffice.org/2000/text"/>" Label 2"</p> <p class="PropText"><help:paragraphinfo state="U" number="28" xmlns:help="http://openoffice.org/2000/help"/>Ende:</p> <p class="PropText"><help:paragraphinfo state="U" number="29" xmlns:help="http://openoffice.org/2000/help"/>MsgBox sVar,0,"On...Gosub"</p> <p class="PropText"><help:paragraphinfo state="U" number="30" xmlns:help="http://openoffice.org/2000/help"/>End Sub</p> </body></html>